home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 225_01 / listfile.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-06-08  |  11.6 KB  |  309 lines
  1. /*-----------------------------------------------------------------*/
  2. /*  FILE NAME:      LISTFILE.C
  3.     ---------
  4.     VERSION:        1.4
  5.     -------
  6.     WRITTEN:        6th July, 1986
  7.     -------
  8.     MODIFIED:       13th July, 1986
  9.     --------        14th July, 1986
  10.                     1st August, 1986  -  Specify start page
  11.                     28/11/86  for UTIL programme                   */
  12.  
  13. /*  COPYRIGHT:      Cogar Computer Services Pty. Ltd.              */
  14. /*  ---------                                                      */
  15. /*                                                                 */
  16. /*  NOTE:           This programme is specifically written for     */
  17. /*  ----            BDS 'C' running under CP/M 2.2 and may need    */
  18. /*                  to be modified for other C's.                  */
  19. /*                                                                 */
  20. /*  PURPOSE:        Will list a text file on the line printer      */
  21. /*  -------         with page numbers and headings (the file name) */
  22. /*                  with a standard page length of 60 printed      */
  23. /*                  lines.   Note the equates may need to be       */
  24. /*                  changed if you are not using 66-line paper.    */
  25. /*                                                                 */
  26. /*  FUNCTIONS:      LISTC         Found in DEFF3                   */
  27. /*  ---------       ENTAB                                          */
  28. /*                                                                 */
  29. /*-----------------------------------------------------------------*/
  30. #include <bdscio.h>    /* See note, above                         */
  31. #include <pec.h>    /* Required for this file                  */
  32. /*-----------------------------------------------------------------*/
  33. #define VERSION "1.4"    /* The current Version No.                 */
  34. /*-----------------------------------------------------------------*/
  35. /*  SPECIFIC CONSTANTS                                             */
  36. /*-----------------------------------------------------------------*/
  37. #define SECTORS 64    /* Sectors in an 8K printer buffer         */
  38. #define PAGE_LENGTH 66    /* For US sized paper                      */
  39. #define PAGE_TOP 5    /* No. of lines to leave after header      */
  40. #define PAGE_BOTTOM 10    /* No. of lines to skip after last line    */
  41. #define    LINES PAGE_LENGTH-(PAGE_TOP+PAGE_BOTTOM) /* lines per page */
  42. #define EOF 26        /* CP/M end of file (?)  CONTROL-Z         */
  43. /*-----------------------------------------------------------------*/
  44. int start_page;        /* The page from which to print    */
  45. /*-----------------------------------------------------------------*/
  46. main(argc, argv)
  47. char *argv[];
  48. int argc;
  49. {
  50.     int i, j, k, n, page_no;    /* counters                */
  51.     int TAB_WIDTH;
  52.     TAB_WIDTH = 8;        /* Normal tab size                 */
  53.     int c;                /* for listing             */
  54.     char dma[128];    /* The DMA buffer for BDOS functions       */
  55.     char printer_buf[SECTORS*128]; /* The printer buffer       */
  56.     char *list_char;    /* Pointer to listing character    */
  57.     char file_name[15];
  58.     char type[4];        /* To see what is the file type.   */
  59.     int FD;     /* The file descriptor                     */
  60.     int CPM;    /* To check the CP/M Version number        */
  61.     char DRIVE;    /* The active drive                        */
  62.     char OLD_DRIVE;    /* The drive at start of programme         */
  63.     char OLD_USER;    /* The User No. at start of programme      */
  64.     char USER;    /* The User No. for this programme         */
  65. /*-----------------------------------------------------------------*/
  66. /*    The programme starts here                                  */
  67. /*-----------------------------------------------------------------*/
  68.     pec_clear();    /* clear the screen                        */
  69.     header();
  70. /*-----------------------------------------------------------------*/
  71. /*  First check the CP/M Version in use.   If it is less than
  72.     Version 2.0 then inform the user and terminate programme.      */
  73. /*-----------------------------------------------------------------*/
  74.  
  75.     CPM = get_cpm();    /* Obtain the CP/M version and No. */
  76.  
  77.     i = (CPM & 0xff) - 0x20; /* Mask off the MP/M bit          */
  78.  
  79.     if(i < 0)        /* Must be less than V 2.0         */
  80.     {
  81.     printf("This programme requires at least V 2.x of CP/M.\n");
  82.         printf("Sorry but it won't run for you.\n");
  83.         exit();
  84.     }
  85. /*-----------------------------------------------------------------*/
  86. /*  The CP/M Version is OK, so save the starting User No. and the
  87.     starting Drive No. in case either is changed later.            */
  88. /*-----------------------------------------------------------------*/
  89.     OLD_USER = user_id(0xff);
  90.     OLD_DRIVE = get_default() + 0x41;
  91. /*-----------------------------------------------------------------*/
  92. /*  Now check the command line to see if a file name was entered.  */
  93. /*-----------------------------------------------------------------*/
  94.     if(argc != 2) {
  95.     printf("We need to know the name of the file you want to\
  96.  list.\n");
  97.     printf("Give this in the form - \n\n");
  98.     printf("          [d:]filename\n\n");
  99.     printf("where 'd:' is an optional drive name and filename is\
  100.  specific.\n\n");
  101.     gets(file_name);
  102.     }
  103.  
  104.     else strcpy(file_name, argv[1]);
  105.     up_str(file_name);    /* Make sure is upper case         */
  106.  
  107.     if(file_name[1] == ':')    /* Drive name given             */
  108.         DRIVE = file_name[0];
  109.     else DRIVE = OLD_DRIVE;
  110. /*-----------------------------------------------------------------*/
  111. /*  Check that the selected drive is available/on-line.   If not
  112.     then terminate the programme.   You may need to add a message
  113.     about what is going on if your version of CP/M doesn't do
  114.     this automatically, as mine does.                              */
  115. /*-----------------------------------------------------------------*/
  116.     if(select_dsk(DRIVE) != 0)
  117.         exit();
  118. /*-----------------------------------------------------------------*/
  119. /*  A file name has been obtained but, as this programme is only   */
  120. /*  ASCII files, we should at least check for things like "COM"    */
  121. /*  and "CRL" and "HEX" files.   Terminate the programme if any    */
  122. /*  of these is found to have been specified.                      */
  123. /*-----------------------------------------------------------------*/
  124.     i = j = 0;
  125.     while((c = file_name[i]) != '.' && i < 15)
  126.         i++;
  127.     i++;        /* Skip over the period                    */
  128.     while(c != '\0' && i < 15)
  129.     {
  130.         type[j] = file_name[i];
  131.         i++;
  132.         j++;
  133.     }
  134.  
  135.     if(!strcmp("COM",type))
  136.         message4(type);
  137.     else if(!strcmp("CRL",type))
  138.         message4(type);
  139.     else if(!strcmp("HEX",type))
  140.         message4(type);
  141.     else if(!strcmp("INT", type))
  142.         message4(type);
  143.     else if(!strcmp("OBJ", type))
  144.         message4(type);
  145.     else printf("\nWhat page will I start from - \n");
  146. /*-----------------------------------------------------------------*/
  147. /*  Get the starting page No.                                      */
  148. /*-----------------------------------------------------------------*/
  149.     scanf("%d", &start_page);
  150.     line();
  151.     printf("Now listing -  %s", file_name);
  152. /*-----------------------------------------------------------------*/
  153. /*  Now open the nominated file                                    */
  154. /*-----------------------------------------------------------------*/
  155.     if((FD = open(file_name, 0)) == -1)
  156.     {
  157.         printf("\nUnable to open  %s  file.", file_name);
  158.         user_id(OLD_USER);
  159.         if(select_dsk(OLD_DRIVE) != 0)
  160.             printf("\nUnable to return to starting drive.");
  161.         exit();
  162.     }
  163.  
  164.     else list_char = printer_buf;    /* point to buffer */
  165. /*-----------------------------------------------------------------*/
  166. /*  File has been opened, so print the page top                    */
  167. /*-----------------------------------------------------------------*/
  168.     page_no = 1;        /* Starting value                  */
  169.     if(page_no >= start_page)
  170.         put_top(file_name,page_no);
  171.     n = 0;    /* Zero the line counter                           */
  172.     k = 0;    /* Zero line-character counter                     */
  173.     list_char = printer_buf;    /* Point to data to list   */
  174.  
  175.     while((i = read(FD,printer_buf,SECTORS)) != 0)
  176.     {
  177.         j = 0;    /* Zero the character counter              */
  178.  
  179.         while((c = *list_char) != EOF && j < i*128)
  180.         {
  181.             k++;    /* Increment character counter     */
  182.             if(page_no < start_page)
  183.                 putchar(c);
  184.             else if( c == HT)
  185.                 k = entab(k, TAB_WIDTH);
  186.             else listc(c);
  187.  
  188.             if(c == '\n')
  189.             {
  190.                 n++;
  191.                 k = 0;
  192.             }
  193. /*-----------------------------------------------------------------*/
  194. /*  Check for the end of page and go to next, if so                */
  195. /*-----------------------------------------------------------------*/
  196.             if(n == LINES)
  197.             {
  198.             if(page_no >= start_page)
  199.                 put_bottom();
  200.  
  201.             n = 0;    /* Re-set the counters     */
  202.             k = 0;
  203.             page_no = page_no + 1;
  204.             if(page_no >= start_page)
  205.                 put_top(file_name,page_no);
  206.             }
  207.             list_char++;
  208.             j++;
  209.         if( k == 80)
  210.             k = 0;    /* Re-set the counter             */
  211.         }
  212.     list_char = printer_buf;    /* Re-set the pointer      */
  213.     }
  214.     close(FD);
  215.     if(n < LINES)
  216.         last_page(n);
  217.     else printf("\nListing finished.\n\n");
  218. /*-----------------------------------------------------------------*/
  219. /*  Before closing, make sure the User No. and the Drive No.
  220.     return to original settings.                                   */
  221. /*-----------------------------------------------------------------*/
  222.     user_id(OLD_USER);
  223.     if(select_dsk(OLD_DRIVE) != 0)
  224.     {
  225.         printf("\nUnable to return to starting drive.");
  226.         exit();
  227.     }
  228.  
  229.     printf("\nDo you want to run another utility - Y/N.");
  230. if((FD = open("UTIL.COM", 0)) != 0 && (c = toupper(getchar())) == 'Y')
  231. {
  232.     close(FD);
  233.     exec("UTIL");
  234. }
  235. }
  236. /*----------------------END OF MAIN ROUTINE------------------------*/
  237. /*                                                                 */
  238. /*  SUBROUTINES USED IN THIS PROGRAMME                             */
  239. /*-----------------------------------------------------------------*/
  240. header()
  241. {
  242.     printf("File listing programme - LISTFILE Version  %s\n\
  243. by Cogar Computer Services Pty. Ltd.\n", VERSION);
  244.      printf("Copyright 1986 - all rights reserved.\n\n");
  245. }
  246. /*-----------------------------------------------------------------*/
  247. message4(str)
  248. char str[4];
  249. {
  250.     printf("\nThis programme is unable to handle  %s  files.", str);
  251.     exit();
  252. }
  253. /*-----------------------------------------------------------------*/
  254. put_top(name,count)
  255. char *name;
  256. int count;
  257. {
  258.     int i;        /* Name counter                    */
  259.     int c;        /* To print out name                       */
  260.  
  261.     for(i = 0; c != '\0'; i++)
  262.         listc(c = name[i]);    /* Print file name         */
  263.     for(i = 0; i < (80 - strlen(name)) - 20; i++)
  264.         listc(SPACE);
  265.     lists("Page: \0");
  266.     listd(count);
  267.     for(i = 0; i < 5; i++)
  268.     {
  269.         listc(CR);    /* Space down 5 lines              */
  270.         listc(LF);
  271.     }
  272. }
  273. /*-----------------------------------------------------------------*/
  274. put_bottom()
  275. {
  276.     int i;
  277.     for(i = 0; i < PAGE_BOTTOM; i++)
  278.     {
  279.         listc(CR);    /* Space down five lines           */
  280.         listc(LF);
  281.     }
  282. }
  283. /*-----------------------------------------------------------------*/
  284. last_page(line_count)
  285. int line_count;
  286. {
  287.     int FD, z;
  288.     char c;
  289.     listc(CR);
  290.  
  291.     for(z = 0; z < (LINES - line_count + PAGE_BOTTOM); z++)
  292.     {
  293.         listc(LF);    /* Space down to bottom of page    */
  294.     }
  295.     listc(LF);
  296.  
  297.     printf("\n\nListing finished.\n\n");
  298.     printf("\nDo you want to run another utility - Y/N.");
  299. if((FD = open("UTIL.COM", 0)) != 0 && (c = toupper(getchar())) == 'Y')
  300. {
  301.     close(FD);
  302.     exec("UTIL");
  303. }
  304.     exit();
  305. }
  306. /*----------------------END OF SUBROUTINES-------------------------*/
  307.  = open("UTIL.COM", 0)) != 0 && (c = toupper(getchar())) == 'Y')
  308. {
  309.